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MODULE shodev (IDENT = *v04-000 
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ADDRESSING Onoe (EXTERNAL = GENERAL)) = 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQU UIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS Cyn eee UNDER A LICENSE AND MAY BE USED AND ig 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH b icone AND WITH THE 
INCLUSION OF THE oy 3 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


0 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ye ey st NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i FACILITY: SHOW utility 


i ABSTRACT: 


This module contains the main routines for the SHOW commands which 
deal with devices, i.e. SHOW DEVICES, SHOW TERMINAL, SHOW MAGTAPE, 
and SHOW PRINTER. 


i ENVIRONMENT: 
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‘ 
‘ 
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J 
‘ 
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‘ 
; 
; AUTHOR: Gerry Smith 
; MODIFIED BY: 
‘ 
' 
' 
‘ 
‘ 
‘ 
' 
‘ 
' 
J 
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VAX native, user mode. 
CREATION DATE: 28-Jul-1982 


v03-010 newoose e—&. Warner 10-Jul-1984 
a gath e to SHOUSHSCP” i when the qyal tier 
Mee RES ued. This is the request for the 
display of mscP served devices which is se erate from 
the rest of the SHOW DEVICE code so all th ode 
does is call the MSCP code when the quslitior is present 


v03-009 CWwH3009 CW Hobbs 12-Apr-1984 
Add another check for NOSUCHDEV, and add an extra 
blank Line for full displays. 
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v03-008 CWH3008 CW Hobbs 35-Mar-1984 
Add two routines to sort the device scratch blocks into 
a list sorted by device name. Change the display loops 
to follow the List. 
v03-007 agwoo e €. Warner I Phe ol 
x pou DEVICE/WINDOWS — mthat it automatically s 
the /FILES flag and gets to SHOWSFILES module for “processing. 


vO3-006 CWH3006 CW Hobbs se ht 8 $6 
Increase virtual buffer so net approximately 1200 devices 
can be gispley yed. Change de 458,08 name parsing logic so that 
allocation class names (e.g. $ UA) are accepted. Some 
other minor cleanups related to pete support. 


ry Gerry Smith 19-Sep-1983 
Sake t possible for JCP to alt the routines necessary 
to display journals just as SHOW does. 


v03-004 GASO114 Gerry Smith 11-Apr-1983 
Change the display for long device names, so that no 
special logic is required at this point. 


v03-005 GA 


v03-003 GAS0110 Gerry Smith 28-F eb-1983 
Add support for cluster devices. 

v03-002 GAS0107 Gerry Smith 11-Feb-1983 
Add support for journals. 

V03-001 GAS00104 Gerry Smith 17-Jan-1983 


Always initialize the device descriptor and unit number. 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC SHODEV.B32; 
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N 5 
e=Sep-t9be 12:08:28 — LeCiUTL SReSSHODEV-032; 
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Include files 

LIBRARY ‘SYSSLIBRARY:11B"; ! VAX/VMS system definitions 
REQUIRE ‘SRCS$:SHOWDEF'; ! SHOW common definitions 

REQUIRE *SRC$:SHODEVDEF'; ! SHOW DEVICES common definitions 


Macro to set up two associated tables. The first table is a List of 
device types. The pine Bap S$ a corresponding List of addresses 


of device-specific d y routines. 
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94 If a new device type is to be added, all that is required in this 
5 macro is to add one Line of code, the device type and the corresponding 
rh display routine name. You must also write the display routine. 
4 MACRO 
289 device_type Cdevtype, disprout] = devtype%, 
8206 display_routine Cdevtype, disprout] = XNAME(disprout)%, 
i, Bene make table (name) = 
m 0505 CITERAL device table_length = (%LENGTH = 1)/2; 
. 3208 EXTERNAL ROUTINE display_routine(ZREMAINING) ; 
m 0508 device table : VECTORCdevice table Longsh BYTE 
. 344 INITIAC (BYTE (device_type(ZREMAINING))), 
M 0511 routine_table : VECTORCdevice_table_ length] 
3216 INITIAL” (display_rout ine (ZREMAINING)) ;%; 


et th 
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i 41! 

Sf i3 1 ! Set up a table of ot} device types which have a specific display routine, 
3 } : } : and another table pointing to the address of the display routine each. 
3 ; P 051 : make table (dummy 

$1 P 051 dc$_disk, display_disk, 

ee & P 1 c$_tape, display_magtape 

3 335 Pp 1 dc$_term, display_terminal, 

3; (3 P ; 1 dc$_journal, display_journal 

..§ 1 c$-lp, display-printer); 
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Table of contents 
éorWaRD ROUT INE 


shovbdey ices rE 


1 
i 
1 nsert Ns ben : NOVAL 
¢ ; parse_device; 
1 EXTE ROUTINE 
: cli t_value, 
1 
1 
5 1 
5 1 
5 4 
05 1 
05 1 
05 4 
82 1 
5 1 
5 1 
5 1 
5 1 


SSSESRISS 


= 
Vwr Ooo 


j t_va, 
Mt th me 


$s 

ey > bret 3 NOVALUE , 

display_ general NOVALUE, 
Tte_line : NOVALUE; 


EXTERNAL LITERAL cli$_negated; 


| 
| 
| 
| 
EXTERNAL 
| 
| 
| 
| 
| 
| 
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Fn : VECTOR (4, LONG); 
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- § cnt ROUTINE showSdevices : NOVALUE = 
: : GIN 
: : a 
: 1 $ i This is the main routine for SHOW ity eB It collects the specific 
; i? qualifiers and then goes to the common SHOW_DEVICE subroutine. 
we ‘ jece 
3 
; 35 unset ! General status return 
; ; : re} loge : SBBLOCKC4) INITIAL(O); ! Options longword 
ny 4 66 i (flags(devi$v_served) = cliSpresent (ZASCID *SERVED')) 
cs % 6 HEN ' If SHOW DEVICE/SERVED . ested 
ae | o8 BEGIN i execute the routine to d spl ay 
; «185 showSmscp(); ! information about MSCP-Serve 
fA 5 RETURN; i devices since it is eeten ty Nsttncent 
; ; , END; ! from the rest of the SHOW DEVICE code 
3 189 ih Collect the qualifiers. 
: 191 75 2 flags(devi$v_allocated) = cli$present(ZASCID ‘ALLOCATED'); 
3 136 7 flags(devi$v_full) = cli$present(ZASCID ‘FULL'); 
; 12? g flags(devi$v_mounted) = cli$present(ZASCID ‘MOUNTED'); 
: 195 8 flagetdevisv. files] = cliS$present(ZASCID ‘FILES'); 
; 196 3 If Uflagsldevisv_ windows] = cliSpresent(ZASCID "WiNDOWS')) 
i 198 282 tlags(devi$v_files] = 1; 
: 5 IF .flags(devi$v_files) 
; : 3 ; 7 BEGIN 
: 8 5 flags dov'idy “ifers = (status = elt ptm ya "SYSTEM')); 
3 5 1sasyee devi$v_user] = (.statu get cli Peel the 3 
3 5 5 4 mir devi $v _syst . ; If ne ther /SYSTER, or 
3 590 4 fhags devi$v wage 3) Sten. qt & 
: 20 591 THEN flagsldev ~ system) = Seasttenten aaa 
g 4 236 END; 
: $10 394 
: Hf 39 show_device( flags); ! Go actually do the work. 
; ig 299 RETURN; 
3: 216 598 END; 
TITLE 


tH rte 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE 2 


00 WD M6 6S 56 Sey SoHE RIES RARE ASAT gGaypgntnco> 


-ADDRESS P.AAB 
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00 00 00 446 45 56 61 63 GF 4C 6C & 10 c. ane: ASCII VOLLOEATED\ <><O> <> 
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ue P.AA 

00 44 45 56 4E it p-AAN: ee Rt ea 

00 00 00 53 45 0¢ 6 P.AAJ: “ASC Re aan 
00 P.AAL: ate 

00 53 57 GF 44 6 P.AAL: wisi ie wUiNDOWs \<O> 
206 P.AAK: . te 

00 00 40 45 54 0006 P.AAN: “ASC "SISTEM cO><o> 
JUC P. AR: 


C j ODRESS P.AAN 
.PSECT SOWNS,NOEXE,2 


43 Al 42 02 01 00000 DEVICE_TABLE: 
«BYTE }- 2. 66, -95, 67 


-BLK 
000000006 000000006 000000006 000000006 000000006 itt ROUTINE TABLE: 
“ADDRESS DISPLAY_DISK, DISPLAY_MAGTAPE, 
SPLAY_TERM RAL. DISPLAY ” JOURNAL , 
ISPLAY_PRINTER 


PLAY DISK DISPLAY_MAGTAPE 
PLAY TERMINAL 


Wie 
GET" VAL Ur SL ISPRESENT 


Peroowoec7oe vvg 
Ome l™ ee J 


L 
mstp DISPLAY _BRIEF 
tt AY_GENERAL 


$s WRITE LINE 
EXTRN ELIS, NEGATED, KERNEL_ACCVIO 
-PSECT SCODES,NOWRT 2 


; C ENTRY SHOWSDEVICES, Save R2,R3 
53 00" CF 9E MOVAB. PL AAA 
000000006 MOVAB CLISPRESENT, R2 
D CLRL = &FLLAA 
1) PUSHL R 
F CALLS #1, CLISPRESENT 
01 «AE 01 F INSV RO, #6, #1, FLAGS#1 
E BLBC ~=E_s«&RRO, 
000000006 of CALLS #0, SHOWSMSCP 
16 Ad OF PUS P.AAC 


HAB 
CALLS #i, ¢ ISPRESENT 
INSV RO, #0, #1, FLAGS 
PUSHAB P.AAE - 


6€ 01 65 
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0000v CF 


Routine Base: 
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SCODES + 0000 
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pap yy pete at Ate ped pe Oe elt eet el et wy 
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i Hit els FLAGS 


var“: pag iY" 
O fee « FLAGS 


a: EL ISPRESENT 
» FLAGS 


a: rspResenr 
FLAGS 


es. ¢ © 


LAGS 
FLAGS, 4$ 


CLISPRESENT 
ATUS, #4, #1, FLAGS 


gy ATus. #CLIS_NEGATED 


a aac 
——4ate 


Ri, #5, #1, FLAGS 
#4. FLAGS, 4$ 
#5. FLAGS, 4$ 
46, at 


#1, SHOW_DEVICE 


ee See ee ee ee ee 
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oat ROUTINE showSprinter : NOVALUE = 


leee 

i 

' This is the dummy routine that gets Gispatched to by the SHOW dispatcher. 
! It sets the /FULL and /PRINTER Bits in FLAGS and calls SHOW_DEVICE. 


LOCAL flegs : SBBLOCK[4] INITIAL(O); 
flags(devi$v_full) = flags(devi$v_printer] = true; 
setae a 


> 4 


PE 


show. ce(Tlags); | 
RETURN; 
END; | 
0000 eENTRY SHOWSPRINTER, Save nothing : 0599 
7E 04 CLRL Lass 3 
6€ 0102 F ABS BISW2 #258, FLAGS+1 : 0611 
‘ 0D PUSHL SP : 0612 
0000v CF fe CALLS #1, SHOW_DEVICE 3 
1 RE 3; 0615 


3; Routine Size: 17 bytes, Routine Base: SCODES + 0097 


: 


PLS LA St 


; Routine Size: 


ieoseo-19ee O1:A2:3E pant? OL {09-52 14.0274 
cent ROUTINE showSmagtape : NOVALUE = 


i this is the routine tha $ dispatched to by the SHOW dispatcher. 
i It sets the SIAPE ond JFULL bite in FLAGS ond colle SHOU. DEVICE. 


LOCAL flags : SBBLOCKL4] INITIAL(O); 
tloge(dey Sy full) = flags(devi$v_tape] = true; 


show_device(Tlags); 
RETURN; 
END; 
ENTRY SHOWSMAGTAPE, Save nothing 
7E 04 CLAL tgs 
6€ 0402 F AB BISw2 #1026, FLAGS*+1 
DD PUSHL SP 
0000v CF FB CALLS #1, SHOW_DEVICE 
04 1 RE 


17 bytes, Routine Base: SCODES + OOA8 


re O53 ARH, 


SOBA ROUTINE show. device (flags, journal) : NOVALUE = 


| tats is the c routine chet all the other routines feed into. 
te a dev 7% ao as ceinied 4 

virtual memory is and appropriate routines ar 
! the common output routine is called. 


- ts: 
= i og odéress of control flags. 
ournal - optional, used only by JCP to pass the name of the 


BUILTIN 
actualcount; 


MAP flags : REF SBBLOCK; 
LOCAL 


data. : REF Address of scratch ar 
argist : revesa ees. 


C0] = device(0) = 0; 


: : bye pS in tate ye 
= 1; 
Sinit. dyndesc(device_desc); 


‘ 

: If from JCP, set up the device descriptor. 
if actualcount() EQL 2 

THEN 


ournal 
aoothe ew desc dsche ry = .j rnalldecty, Length); 
device. desc(dsc$a_pointer) = Journal dsc$a_pointer); 


' 
: Otherwise, just a normal path. 


ELSE 
BEGIN 


°s 


seas ' ied. The device name " “parsed. 


t 


iss-32 
RC JSHOD 


i kernel mode to seatect the "ean Upon return from the kerne aede y A 


° ! General status return 
unit : VOLATILE $ yess r of parsed device 
node : VECTOR fe _nodename+! ,BYTE), ! Node strin 
gev ce : VECTOR at hofise namLength+1 BYTE), : Dey ce str 
e.desc : Ck€dsc$c_s_binJ, : Device descriptor 
4 


Argument List for SCMKRNL 


Initialize the ASCIC strings, the unit number, and the device descriptor 


Set up the. , a a descriptor 


ev832: 


roo 


Mure 


a a 8 


NAVE WN —O OONOULS WO 


SN 


SSLFERFUNASSOVEO RUINS 


ic 
| 


| Mobs €hnste"tass'BvEG8hnwans Sra" sSS'SEU/AILE Sten BEES Tsk! 


A. NOT fee value(ZASCID DEVICE’, device desc) 
Fs tlagstdevisy, term) ! If SHOW TERMINAL and none 
! specified, use SYSSCOMMAND 


hei ~geschdsc$u_ Length]_= ZCHARCOUNT (" SYSSCOMMAND*) 
device-descldsc$a_pointer] = UPLIT BYTE (*SYSSCOMMAND'S; 


FUSE IF .flags(devi$v_files) ! If SHOW DEV/FILES and no disk 
! then use SYSSDISK 


ieelee aGoschdsceu_ Length] _= ZCHARCOUNT (' SYSSDISK*); 
device. descldsc$a_pointer] = UPLIT BYTE (*SYSSDISK'S; 


If SHOW DEVICE/FILES was specified, make a neler detour, and simply call 
the SHOWFILES module. SHOW FILES {is just too different from the way that 
the rest of SHOW DEVICES works to try to thread it 


' 
i 
' 
' 
' 
IF - flags(devi$v_files) 
NBEGIN 
cotus = showSfiles(device desc, .flags); 


$s 

If NOT .status 

THEN SIGNAL(.STATUS); 
RETURN; 


1 

! If, after all this etganerote. there is actually a device name to parse, 

then go ahead and do 

if .device_descldsc$w_length] NEQ 0 

aay ean 

IF NOT (status = parse smote is desc, whey es input 

de device, ig Get t DOB part 
flags) : possibly set. set flag bits 


— (SIGNAL (. status) ;RETURN) ; 


Oo away if error. 
‘ 
i Grab a large chunk of space, to put the information about the device(s). 


if NOT (status = Lib$get 1 iy peli data)) 
HEN (SIGNAL(.status); RETUR 


data(0) = 512*512; ! Store the size of the segment 
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| 
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vou~600 Heise Q4GREHE YASUE Sheed: Bals Pee 


; Now get rapes on the device(s) requested. 


' 
| 
| 
| 

argist 

argist 3 

srgisttly = : dev ice: 


arglst 
-” reise 
stetus = sili = io_scan, 

LST = argist); 
| Status 


ogsin 
F status EQL ss$_accvio 
N SIGNAL(.status, .kernel -accviol0}, .kernel_accvioll], .kernel_accviol2], .kernel_accviol3], 0) 
ELSE SIGNAL(.statuss; 
RETURN; 
END; 
] 


Sort the devices so that the displays are cleaner 

sort_devices(data(0)); 
Print the information. The method that is used is very Pt but it works. 
The geretes area is scanned repeatedly, once for once device class. If a 
particular device gets printed, its D_V_DISPLAYED bit is set. 


' 

i 

i 

i 

i 

i Then, all the devices that didn't get printed in the device-specific scan 
get printed in a general format. 
8 


EGIN 
LOCAL 
scratch : REF SBBLOCK; 
404 flagsCdevi$v displayed) = 0; ! Assume that no devices will be found 
£08 Go thru each device type. 
408 increta FROM 0 TO device_table_length - 1 DO 
£93 flags(deviSy.. vsheeger = 1; ! Print a header the first time | 
411 scratch ! Point to head of device List 
og ONILE Ae NEQ 0 DO ! Go thru all the devices 
a) BE ! a device giees at a time 
ei3 it ag b_devclass) EQLU .device_tablel. index 
41 
419 (sf lagst i fu ty) ! IF /FULL, do dev-specific output 
713 routine_ 7} Ble ndex))(.scratch,  tlogs s} | 
41 Use cipptey rief te - flags 8); Othe rwise use the general output routine. 
cB scratch(d_v_displayed '"So we don’t re-print this device. | 
422 scratch = .scratch(€d_l_ucb); ! Get to next device. | 
| 
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; 4 : END; 

3; «4 END; 

, 2 ; ; 

3 2 Now to print the general-device stuff. 

; 64 ite sLdeviSy. he ] = true; ! Get a headi 

3; 4 ecretcn © tetoss 3 Back. to the "head of the List 

: ? WHILE’ cserateh NEQ 0 DO 

; 2 en NOT oe eae mies 

; 435 

| it on (*ttagstdevisy. full)) ! IF /FULL, do dev-specific output 
3; 4 THEN display apeneral(. -scratch, . flags) 

; 4 ELSE hee rief Oe te flags); ! Otherwise use the general output routine. 
; tie peronen div displayed ! So we don't re-print this device. 
; 44) nerekeh = .scratch(d_l_ucb]; ! Get to next device. 

; 44 END; , 

; 44 END; 

: 08 ; 

3 rr If nobody managed to set the displayed bit, then we saw no devices 

; 44 if NOT . flagsCdevi$v_ displayed] 

; 430 SIGNAL (SS$_NOSUCHDEV) 

; 43 ELSE IF .flags(devi$v_full) 

; 4 THEN 

} $22 showSwrite_lLine(ZASCID °*, flags); 

3 436 RETURN; 

3; 45 END; 


~PSECT SPLITS,NOWRT ,NOEXE 2 
00 00 45 43 49 *o see 44 00070 P.AAP: .ASCII eperee 


so r P.AAO: .LONG 
»ADDRESS P.AA 
44 4E 4D ¢ 4F 43 2 33 P.AAQ: ASCH \SYSSCOMMAND\ 
4B 49 44 P.AAR: ‘BLKB ss¥s DISK\ 


01 0F 0008 Q PIAAS: PONG. 97694720 


98 eADDRESS P.AAT 
eEXTRN SYSSCMKRNL 
-PSECT SCODES,NOWRT,2 


57 900000006 00" 9 00908 nat SOL ac Ss R2,R3.R4,R5,R6,R7 


0633 
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SHOD 16-Sep-1984 01:32: AX-11 Bliss-32 V4.0-74 Page 15 
: rivet 1ersen~} 38s 93:58:3s — FANT IT Sh ieg 3s vs -O50s 9° 68) 
5E FF78 CE : 1 MOVAB -136(SP), SP ; 
ef A 1 CLRB  —sODEICE t 0668 
FC OAD OF CE O0OIB mNeeL OW 1 ? 0669 
24 AE 020€00 0 t 05 iF OVL @# 191936 DEVICE_DESC : 88 0 
AE p CLRL —DEVICE pesces : 
02 gt A CHEB (AP), # 3 0675 
F 1 D BNEQ 18 : 
50 08 AC D F MOVL JOURNAL RO + 0679 
34 AE 60 8 : MOVW (RO), DEVICE_DESC : 
8 AE 06 =A MOVL (R05, DEVICE_DESC+4 + 0680 
34 C BRB é + 067 
24 AE OF 1$ PUSHAB DEVICE_DESC > 069 
0000" CF 9F 0004 PUSHAB P.AAO : 
000000006 B ; F 43 CALLS 3, CLISGET_VALUE : 
04 aC D ° 4F MOVL FLAGS, RO + 0696 
oc 1 AO 0 E 33 BBC #i, 1(RO), 2$ : 
6 A B 80 105 mMOVw #11, DEVICE_DESC + 0699 
8 AE 0000" CF 9 é MOVAB p Ada, DEVITE_DESC+4 : 9700 
OA 60 : E1 28: BBC #3, (RO), 3$ ; 970 
24 «AE 8 80 0068 MOVW #8. DEVICE DESC + 070 
28 «AE 0000" CF 006 MOVAB P.AAR, DEVICE_DESC+4 + 0706 
54 Ac DO 00072 3$ MOVL + 0716 
13 64 9 E1 0007 BBC #3, (RS), 4$ : 
4 DD OO07A PUSHL R& + 0719 
28 «AE OOF o07¢ PUSHAB DEVICE_DESC F 
009000006 00 FB oor CALLS #2, SHOWSEILES ; 
3 4 0089 BLBC STATUS, 6$ : 0720 
4 008C RET : 0721 
24 Ag B 08D 4$ TSTW DEVISE_DESC : 0729 
19 1 0090 BEQL ; 
54 DD 009 PUSHL 4 + 0736 
FC AD 9F 00094 PUSHAB UNIT : 0732 
34 AE 9F 0097 SHAB DEVICE : 
C AE OOF O9A PUSHAB NODE : 
34 AE 9F 0009D PUSHAB DEVICE_DESC : 
0000v CF F OA CALLS #5, PARSE DEVICE F 
2 9 D A MOVL RO STATUS F 
a4 f 0 BLBC STATUS, 7$ : 
4 AE SF OOOAB S$ PUSHAB DATA + 0743 
| 04 AE 000400 0 af po 9 A WOVE #e62146, 4(SP) 
000000006 : % fi : CALLS é . LIBSGET_VM : 
a C3 6$ BLBC STATUS : 
2 04 AE D ¢ v $ 0746 
65 00040000 BF D cA HOVE #62144. (R5) Peas 
of AE 70 AE oe D5 MOVAB NODE, ARGLST+4 ; 07 
AE 2c OAL DA MOVAB DEVICE, ARGLST+8 : 07 
| . FC OAD p DF MOVL UNIT, ARGLST#12 : 07 
18 AE 54 7D OO0E4 MOVG 4, ARGLST+16 ; 07 3 
08 Ar 3 £8 PUSHAB ARGLST : 07 
000000006 00 9F O00EB PUSHAB 10_SCAN ; 


3; Routine Size: 


0D 


CB 


09 


1) 3 


426 bytes, 


000000006 3 
F 
oc 


7é Oo0000006 


0000v CF 
01 AG 


01 AG 
52 
0000°CF43 
$6 

0 

60 

06 fe 
$8 

53 

01 AG 
52 

18 

64 


000000006 00 


06 fe 
$3 

01 AG 

7E 

66 

64 

000000006 00 


Routine Base: 


N 6 
16-Sep 
1228 Sep 
F f 
b6 QOOFk 
E FB 
? fF 
00 
7D 001 
DD 001 
FB 0011 
04 0011 
; bp 119 7$: 
118 
55 DD 00110 8$: 
1 FB OO11F 
9 BA 00124 
Be 128 
oe 12A 9S: 
§ D 12E 
8 1 151 10$: 
78 A2 91 00133 
1A l¢ 13A 
01 €1 0013C 
0000'CF43 DO 0014 
14 BB 0014 
Oe FB 0014 
05 11 00148 
14 BB 00140 118: 
02 FB 0014F 
01 8 B28 13s: 
62 00 001 15$: 
D6 11 00159 
. 06 F3 3132 148: 
08 8 15F 
65 D 163 
21 1 198 15$: 
04 A2 €E8 001 
01 €1 O16 
14 BB 001 
be re 17 
1 17 
14 BB 0017B 16$: 
oe F 17 
1 8 180 17$: 
62 D 184 188: 
p 11 00187 
50 189 198: 
0908 F 3C 001 
1 re 195 20$: 
01 oY 139 218 
04 AC of 138 
0000' ff 7 1K5 
be 1A9 228: 


SCODES + 0089 


paloge 82:08:08 LCL IUELSSne Ssnovev:B3¢; 


#3. § SYSSCHKRNL 
RrATUS 
pn wi2 
(SP) 
KERNEL LACCVIO+8, =(SP) 
KERN EL-ACCVIO, =(SP) 
#6, LIBSSIGNAL 
STATUS 


a 


14$ 
| Sanaa stad DEVICE_TABLECINDEX] 


#1, (R4), 118 
ROUTINE TABLECINDEX], RO 
#*M<R2,R4> 
#2, (RO) 

hep “Digetay eBRIEF 
c gRaten,. Sea aten 
fe, INDEX, 9$ 
tRS). SCRATCH 


4(SCRATCH), 18$ 
, 168 


DISPLAY_GENERAL 
R 
4 (SCRATCH) 
fete SCRATCH 
1h(R4? 21$ 
-(§p) 

Ver SSTGNAL 


rh eae 228 
FLAGS 


P.AAS 
#2, SHOWSWRITE_LINE 


Se Se Se Se Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Se Ge Ge Ge Se Ge Be Se Se Be Se Se Se Be Se Se Be Ge Be Se Be Ge Be Se Fe Be Se Se Fe Fe Se Se Fe Fe Fe Se Se 


@0oo 


ONSEN —OOUW— 


s$38 S 

coco ~ a oa 

ou - sd j 
— ee LO Ee 


OOooooooo°oo 
020909090909 ~J ~0000 


iSeseo-1964 O1:5z:S yan OLtg-32_y4.0376 


iScseortoge O1:32s55  yancts OLing-32_ 4.0274 Page Je 


ROUTINE sort_devices (data : REF VECTOR C, LONG]) : NOVALUE = 


OOFC 00000 SORT_DEVICES: 
WORD 


; : This routine Links the s re ocgee fa into a gore d eit The sort key is 
; 46 the device name. A special key f $ used, since 5 ™ device name 
i 466 i per se were to be used we would see DuATO: before DUA | 
: 6 Sidi 
3 469 AL 
3; 47 scratch : REF SBBLOCK, ! Address of current entry in scratch area 
3 of len; ! Length of device name | 
3: 474 data{0) = 0; ! Use the first longword as the List head 
3; 475 scratch = data(1); ! Point to start of scratch he 
$ rth WILE apereteh d_t.device] NEQ 0 DO ! Go thru all the devices (name(0,0,8,0] = 0 marks the end) | 
; $78 BIND 
3: 4 dev = scragch(d t.device] : VECTOR C, BYTE); | 
; $80 len = .scratch(d_b devlenj-1; ' Get the total Length without the colon 
3 4681 DECR i FROM (.Len-T) TO 0 i Adjust length for O:n-1 index and scan backwards 
; 48 dO ’ soroug the string, jock tng for the las 
; 48 BEGIN ! non-digit in the string. This trims the unit number. 
; 4846 i -devl.i) GTR ZC°9" OR .devl.i] LSS %C‘ ‘9° 
3; 485 THEN EXITLOOP $ poneetats done with this one 
3 486 Len. 2 ten = 43 i Found a digit, shorten the string | 
; 488 CHSMOVE(.Len, dev, scratch e pore -name]); ! Move the ngde/consrel lor to the sort field | 
3; 489 insert _devi e(.scratch, gete ' Insert it in the list 
; 4690 IF .scratch(d_b -deve lass cau ais ournal ! Skip over the journal device 
3; «491 THEN scratch = cscratch + d_k Length; 
7; 49 scratch = .scratch + d_k_length; ' Get the next device. 
; 49 END; 
3 4946 
3; «495 RETURN; 
> 496 END; | 
" Save R2,R3,R4,R5,R6,R7 $ 
04 Bf D4 ¢ CLRL @DATA ; 0854 
57 04 AC 4 I ADDLS #4, DATA, SCRATCH : tH 
08 a7 3 OA 18: TSTB = 8 (SCRATCH) : 0856 
3F 1 00D BEQL 3 
26 06 A? QA 0 MOVZBL 6(SCRATCH), LEN ; 0860 
if 4 : ne (LEN), I 3 enol 
39 08 A74 1H 18 23: -, (SCRATCH)CIJ, #57 : 0864 | 
30 08 A769 91 OOOIF MPB = B(SCRATCHDLIJ, #48 : | 
1F se BLSSU  4$ 3 
6 07 6 ECL LEN 3 0866 
| 


a 
ORF 
? 
? 


; Routine Size: 79 bytes, Routine Base: 


04 


78 
8197 


SCODES + 


0263 


iSoseoct9ge OU:BRs5E  yanctt OLsey 82. y4.0276 Page 9 


2 4 gt 
+ DD 

uF 

: 

&F 5$: 
MF 04 O004E 68: 


| 
— 


MOV : + RCSCRATCH), 68 (SCRATCH) 


= 
se 


Us NSERT DEV ; 
cs tcdtaEa vise : 0870 
ROVAB (R7), SCRATCH + 0871 
MOVAB e (R7). SCRATCH ; i 
+ 0876 


$ bse -1 :32: AX-11 BLi §sa5 vV4.0-74 
vives tid i ~300n 138% 94:38: 3 CLIUTL. SRC} SHODEV.832; 
NE insert_device (new : REF SBBLOCK, head : REF SBBLOCK) : NOVALUE = 


! This routine tasers s the input device into the List of sorted device 
! scratch blocks, using the D_L_UCB field as the Link. 


5 : te 
: J vy 
' st - address of device to be added 
1 LOCAL 
\§ nxt : REF SBBLOCK, ! Pointer to next device block 
i prv : REF SBBLOCK; ! Pointer to last device block 
15 SASSUME coperyerr set Tid_l.ucb), EQL, 0); ! Only works if UCB is the Stree field 
1$ prv = head g,' ! Previous starts out as the head 
18 nxt = .head(d_T -* ! Next starts as the first one 
1 


WHILE 1 ! Use EXITLOOP as a structured GOTO 


BEGIN 
ant EQL 0 ! At the end of the List, insert it here 


BEGIN ' (identical Blocks, compiler with combine into one) 
d_l_ucb new; ! Point Last block at this one 
pew d-t auch = ames ! Point this block at the next 


CONAUE Wh 


ND; 
IF CHSGTR(d_s_sort_name, matte t_sort “none ! If next is greater than the new, insert it here 
d-s"sort—name, newld-t-sort—name]) 


PIN INIWNGE ES BB BMWA BB BMP PUPIPIPINININIPIPIPIPININININIPIPININININD 
—s 
mee 

7 ef 


44: 
! tt THEN EG N 
§ aig prvid_ l_ucb new; ! Point Last block at this one 
71 newld l"ucb) = & ae ! Point this block at the next 
5 4H) EXITLOOP; 
gi6 prv = nxt: ! Move to the next block 
71 nxt = .nxtbd_t_ucb); 
10 319 _ 
41 : RETURN; 
42 oy 7 ENDS 


007C 00000 INSERT_DEVICE: 
WORD Bove Ree oR3,R4,R5,R6 


5 04 ac 7 mova 
4 : MOVL aieho, NXT 
A 18: BEQL $ 
44 AS ba Ab é ¢ CMPC3 «#16, 68(NXT), 68(R5) 
09 18 0001 3$ 


BLEQU 


823 


sH00ky, ifoseo-190e Q4:ER:S YAN tt ol tegc82 y4.g-709 


66 06 «OA 14 28 MOVL NEW, (PRV) 
06 BC ef o0 18 ; ROVE NXT, NEU 
3 54 4 10 3$: MOVL NXT, PRV 
4 64 D 20 MOVL (NXT), NXT 
€5 11 BRB 1$ 
3; Routine Size: 37 bytes, Routine Base: SCODES + 0282 


7 
ifseoctoge O1:5R:55  yancty OLie4=82, 0374 
poy ine parse device (device desc, node, device, unit, flags) = 
aoe 


A 
! This routine — ry Sayre pooc tf ted in we DESC and returns 

a device stri The method uséd is to first translate 
! the passed str cyt 0 0t oes, “and then t to aces ¢ the final, resultant 
! string, breaking it into a unit number (possibly) and a DDB part. 


4 
1 
i 
' 
: 
! Inputs 

; * DEVICE ESC - address of a descriptor holding the actual string specified 
' 

' 

' 

' 

A 

( 


Outputs 
- address o 


fA 
Device - address of A 
UNI - address of a 


IC to hold the node name or allocation class 
Ic stri to hold the DDB name 
ongword to hold the unit number 


node : REF VECTOR BYTE) 
device : REF VECTORL,BYTED, 
“REF SBBLOCK 


Nan Ry som : REF SABLOCK; 
LOCAL 


j 
$c_namlength, BYTE) 
ht Pease mentesgeh pvied:; 


' 
! Transfer the initial string to IN_DESC, and set up the descriptors for the 
: iterative translations. 
in ~Gone inebui ts -descCdsc$u length); ! Use pesseg Length 
i point to Local buffer 
i Set = ene result descriptor 
i to be max size 
i Move ori inal gatrine to 
i the local buffer. 


aoe “desc 


ape c_panlength: 
out as aces 


vel. tris Hee Length] 
gov" “Hunts, “desc(dsc$a_pointerJ, 


' 
Translate the device name, up to 10 times. 
incR orci FROM 1 TO 10 00 


3° FIND CH(.in_desc(0), .in_desc(1], 
F NOT cae ie ptr)” 


pase 22 


iSoseontee OU:Ege5 yAteAt OL tey82 yé.03709 race gS 


: 


THEN in desc(0) = .ptr - .in_desc(1); ! Get rid of colons +... | 
status = OTE. S00 Fone © s col aes ! Try to translate 
RSLLEN = out “ieecs;: | 
v. wl. status ! If an error, then exit 
RETURN .status; 


Before continuing tins 
translation, Re. i bis 5 
3 prosees-es 


TP ENSRCHAR( out sessetth EO, 2x" 18" 
cs so ytes hen strip the "eee 


AND ee. egyt desc EQL 0 
AND . 


1 
1 
1 THEN te 
1 GLE if HSRCHAR(.out_descl1}) |e, Also ¢ heck and remove one or 
1 HEN two underscores. 
; BEGIN 
1 re out_desc({1] + 1) EQL °° 
1 N temp = 2; 
ies ba! NEQ 0 ! If there were any cheresters 
! to remove, then do s 


-Out_desc temp, 
out - _desct8h'3 = .out ‘gescC02 - temp; 


Beaton eoGeseft) + 2483p: 


PPB EF FMAM NIMININIIINI\NTNIAD HAAR BE BB BB ME BBB HAMMAM AH 


6 ; rs ! Rearra the pointers 
6 On de dest {03s stout tadesc fo}: ! so that we cont leue to 
6 IF ital ' translate. 
6 art eat ets s _NOTRAN ! If no more translation, 
6 ! then go parse the string 
6 the Y~ cf = = “ogse. namlength; 
6 4 out_desc 
? ; END? 
6 ‘ 
“ 3 ' See if there is an SCS nodename or an allocation close on the front of t 
64 ! If an SCS remove it and place the SCS node soto NODE as an Astle string. 
ong ' If an allocation class, remove it and ptece t in NODEL1:4] as an integer, and 
64 set a flag so that we will know that it is an integer. 
$5 g temp = CHSF IND CHC. we -desc(0), .in_desc(1], wy 
#t : re T CHSFAILT. temp) If there is an SCS node, | 
GIN | 
64 $ TF ten EQL .in_desc{1) ! Leading *‘S’’ should be an allocation name 
is oceis | 
“alt VECTOR ASL ! Descriptor for allocation class stri 
sta: sete |: : Remove the first if Me the Bas " 
5 ine ncdesct| av att 
ND_CAC.in masse. ' Find the second ‘'S’’ in the name, the one 
65 5 .in-desc *$"); ' that separates allocation class from device | 


Be Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Fe Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Ge Ss Se Se FH Se Se Ge Se Se Se Ge Ss Ge Ge Se Se Ss Ge Se Ge Ge Ge Ge Se Ge Ge 


7 


1 
1 
1 
1 
1 


ee em me me me ee ee ee ee ee a a ad nd ed ed = dd 8 Sd 8 td 


~y b Yo edescC13; 
pefune $s eh ecalia. node(0}) 


in-des 
ese’ 
Seely 
- in desc(1); 


ee setha, 
in uit -int n-gesciQ) + snodetOd 


' 

' At this 
! of a device name. 

' a@ device type. 

: end of the string, and 
I 


if .in_desc(0) EOL 0 
THEN RETURN 1; 


ocate t 


bECR-Yndex. Fron .in_desc{0J - 1 TO 0 DO 


OeeAL 
char : BYTE; 


char s CHERCHARS in desc{1) + 
ir char ore "9° 

OR .char L 
THEN ioe. : 


- index); 
p EXITLOOP) 


temp unit = o fgnP- unit + ((.char = '0*) 
oy -exp * 
END; 

END; 


If .t EQL -1 
THEN RETURN SS$_IVDEVNAM; 


! TEMP points to the character 
the string up to TEMP to the 
HSMOVE(.temp + 1, 


' 
i 
i 
i 
¢ 


it bees nH OU:g:33 YANCHT OL enc 82. ve. s749 


ie # Provted eri ; 
ee n aesct9y -attatoy = 131 


— 7 


| 

| 

Page 24 
at 


H If shore is a ‘SS’ on the front, we'd better have 


7 Bt ee _ | 
| ESUtSnte gonnere TEs" conte’ be yal ino | 
: et them know it is 7 8 a slessetes class name 


alculate new tength 
new position o Ky 


| 

| 

' Calculate @ WODE coun ount 

i the node in NODE, 

i Wd thour the ‘'S’’ | 
| 


;! Calculate new Length and 
ii new position of string 


int we aheuté be qove a ghystcot device name, or else gene fragment 
needs to be proce into a un 

the si ce sppros h to take is 
e first non-numer 


t number and 
° 7° backward, from the 
cal character. 


' If no more, then 
! stop now. 


! Temp character 


' Get a character 
! See if it's a number 


' If not, then exit 
i If a number, add it 
i in to the unit a 
* -exp); 


! If nothing but numbers, 
! return invalid device name. 


ust before the unit number. Copy 
SCID string, DEVICE. 


! Copy the device part 


: 


Se Ge Ge Ge Ge Se Ge Se Oe Ge Ge Ge ee 


NOW 


i gerteetisys” 


' to DEV 
device(O] = .temp + 1; ! and pu 


1 
then there is a unit number to ge 


F ,temp+? LSS .in_desc(0) 
Hf suntt : eines 


RETURN 1; 
END; 


-EXTRN 
O3FC 00000 PARSE _DEVICE: 
- WORD 


S 8ts23 
3 
CREAR 


Smovoooom 
ae 
Ooo 


wn 
co 
3 
uw Ww 
oe Oo 
wn" 
o 


01 
04 FO 


SFRSS 
GSSSOSON SSSSSSomMoS——N>y 


SF OSF 


o> 


ibeseomtaee 01:32:55 yanctt 1409-52. 14.0276 
ana 


f TEMP is not positioned at the seet character of the string, 


SYSSTRNLOG 


$ R2,R3,R4,R5,R6,R7,RB_RI 
sP5, §P 
ICE_DESC, RO 
), IN_DESC 
BUFF, IN DESC+4 
out 
BUFF GUT _DESC +4 
RO), IN_BUFF 


T BUFF. 
ROY, at 
INDEX 
8, IN_DESC, @IN_DESC+4 


1, PTR 

IN_DESC+4, PTR, IN_DESC 
=(SP) 

-(SP) 


STATUS, 4$ 
STATUS, RO 


OUT DES +4, RO 
ROT, 357 7 
7(RO) 


fren #4 
#4, TEMP 


RO), #95 
#1, TEMP 


ifoseont9e 01:32:55 yan. oLta4-52 14.0274 


ee 


2s 


> 


2% 


SseES 


Sine yh he! op 4 


—MDOV1OM OLWOCVUT_OM 
8 
mse 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ws & & & & 


1(RO), #95 
#2, TEMP 
hp E 


mi tren si: i - fo) 
TEMP 


STATUS, Bt 
rH od OUT “Dest s 


#10. “INDEX 
‘ 6, IN.DESC, bin’ DESC +4 


NODE, R6 
i IN_DESC+4 
IN_DESC 


+4, es ALLD 
+4, ALLD+4 


IN peses4, TEMP, (R6) 
RO, vai DESC+4, 1(R6) 


Hl nlncbese 


Rane - roeSco4 


* 
“i, TON 


Be Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Se Ge Se Ge Se Ge Ge Ge Se Se 


a ee 
NN eee eee ee ee 


ihasidnaiibaiatcgsoe 


7 

$ 6- ep-1984 01:32: AX-11 Bliss-32 V4.0-74 pP 7| 
rived Ve~Seor13Re Ph:38:5e | PONTE Odessa YG -Os069 age 95 | 
50 5 mov R INDEX 3 1074 

33 FC BD4 158 16$:  MOVB  @IN DESC #4 C INDEX], CHAR : 
i CHB CHAR, #57 + 1075 
30 9 CAPR CHAR, #48 + 1076 
57 (i 17$: ROVL INDEX, TEMP : 1077 
1 A 0016C 188 MOVZBL CHAR, R1 : 1080 

1 ce 16F SUBL2 #48, R1 F 

1 C4 001 MULL2 EXP, RI ; 
5 A 0 i mutt 16 i See + 1081 
DA : F4 00178 19$:  SOBGEQ INDEX, 16$ ; 1069 
FFFFFFFE © 8F Dt 17E 20$: CMPL TEMP, #1 + 1085 

1 BNEG  22$ ; 

50 0144 8F 3C 00187 21$:  MOVZWL #324, RO ; 

4 0018C RET ; 

oT) 0c +4 4 i F ane hove Be vice Rb : i 

01 Ab FC «BD ; 1 MOVC3 ay @IN_DESC+4, 1(R6) ; 
66 7 1 MOVE 7. (ROY + 1095 
7 D1 0019C CMPL  R7. RB > 1101 

04 18 0019F BGEG 40s «23 F 
10 a 9 v0 1A1 MOVL TEMP UNIT, @UNIT + 1102 
01 p 1A5 238 MOVL «6 #1, R + 1104 
4 0018 RET > 1105 


3; Routine Size: 425 bytes, Routine Base: S$CODE$ + 0207 


_ 


SOWNS 
SPLITS 
SCODES 


File 


~-$255$0UA28: CSYSLIBILIB.L32;1 


1% ? 


1eo$ep=19be 92:05:25 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC SHODEV 830; 


sEXTRN LIBSSIGNAL 


PSECT SUMMARY 
Bytes Attributes 
8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, 
1 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, 
11 NOVEC,NOWRT, RD, EXE, NOSHR, LCL, REL, 
Library Statistics 
eususese Symbols -<------ Pages 
Total Loaded Percent Mapped 
18619 37 0 1000 


COMMAND QUALIFIERS 


Processing 
Time 


00:01.7 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHODEV/OBJ=0BJ$:SHODEV MSRCS$: SHODEV/UPDATE=(ENHS: SHODEV) 


i Pe 

Slesced Tine: 

Lines/CPU M 

Lexenes/CPU-Min: 44590 
ry Used: 


renee! tion's 


. wes 184 data bytes 
1:42.9 

19 

210 pages 

omplete 


005 AH-BT13A-SE | IGI T CORPORATION 
VAX/VMS V4.0 _ PROPRIETARY 


